home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / tri-3.bas < prev    next >
BASIC Source File  |  1994-06-23  |  612b  |  19 lines
  1. 10 PRINT "GIVEN TWO SIDES AND THE ENCLOSED ANGLE OF A TRIANGLE"
  2. 20 PRINT "FIND THE OTHER SIDE AND THE OTHER TWO ANGLES"
  3. 30 INPUT "ENTER SIDE (S1)"; S1
  4. 40 INPUT "ENTER SIDE (S2)"; S2
  5. 50 INPUT "ENTER ANGLE (A1)"; A1
  6. 60 Z=57.296
  7. 70 S3=(S1^2+S2^2-2*S1*S2*COS(A1/Z))^.5
  8. 80 P=(S1+S2+S3)/2
  9. 90 B=(((P*(P-S2))/(S1*S3)))^.5
  10. 100 A3=2*Z*(-ATN(B/SQR(-B*B+1))+1.5708)
  11. 110 A2=180-A1-A3
  12. 120 D=.5*(S1*S3*SIN(A3/Z))
  13. 130 PRINT S1 "       SIDE (S1)"
  14. 140 PRINT S2 "       SIDE (S2)"
  15. 150 PRINT S3 "       SIDE (S3)"
  16. 160 PRINT A1 "       ANGLE (A1)"
  17. 170 PRINT A2 "       ANGLE (A2)"
  18. 180 PRINT A3 "       ANGLE (A3)"
  19.